home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd2.bin / sharewar / Slunec / app / 17 / _SETUP.1 / Vytvorit projekt ze slozky dokumentu.pw < prev    next >
Text File  |  2000-08-30  |  2KB  |  52 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {     Programmer's Wizard 2 Pascal Script               }
  5. {     (popis jazyka v souboru SCRIPT.DOC)               }
  6. {                                                       }
  7. {*******************************************************}
  8. uses ScriptUtils;
  9.  
  10. function GetVerStr: string;
  11. var
  12.   mMajor, mMinor, mRel: Integer;
  13. Begin
  14.   GetVersionEx(mMajor, mMinor, mRel);
  15.   result := 'v' + IntToStr(mMajor) + '.' + IntToStr(mMinor) + '.' +
  16.     IntToStr(mRel);
  17. end;
  18.  
  19. function GetValidVerStr: string;
  20. Begin
  21.   result := 'v2.0.1'; //pozadovana verze PW
  22. end;
  23.  
  24. var
  25.   mDocuments: Array of String;
  26.   mName: String;
  27.   mProj: Integer;
  28. Begin
  29.   if GetValidVerStr <> GetVerStr then //nespravna verze?
  30.     ShowMessage('Upozorn∞nφ: tento skript byl napsßn pro Programmers Wizard ' +
  31.       GetValidVerStr + '. Momentßln∞ spuÜt∞nß verze: ' + GetVerStr);
  32.   
  33.   //vytvorit seznam dokumentu
  34.   EnumDocuments(mDocuments);
  35.   if GetArrayLength(mDocuments) = 0 then Begin
  36.     ShowMessage('Slo₧ka Dokumenty je prßzdnß. P°ed pou₧itφm tohoto skriptu ' +
  37.       'musφ b²t ve slo₧ce Dokumenty alespo≥ jeden soubor.');
  38.     Halt;
  39.   end;
  40.  
  41.   //vytvorit projekt
  42.   if not (InputQuery('Vytvo°it projekt', 'Nßzev projektu:', mName)) then Halt;
  43.   mProj := CreateProject(mName, 'Vytvo°eno skriptem, p°evod slo₧ky Dokumenty');
  44.   SetProjectFiles(mProj, mDocuments);
  45.  
  46.   //otev°φt projekt
  47.   if AskUser('Nov² projekt byl vytvo°en. Chcete nynφ tento projekt otev°φt?')
  48.   then
  49.     OpenProject(mProj);
  50. end.
  51.  
  52.